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**F ILE**1D**MTHMOD 


al MM TTTTTTTTTT HH HH MM MM 000000 DODODDDD 

MM MM TTTTTTTTTT HH HH MM MM 000000 DODDDDDD 

MAMMA MMMM TT HH HH MMMM MMMM «00 00 0D DD 

MMMM MMMM TT HH HH MMMM MMMM 600 00 OD DD 

mm 66MM OMM TT HH HH MM mM 600 00 0D DD 

mM 66MM OMM TT HH HH MM MM MM «(00 00 DD DD 

Lala “mM TT HHHHHHHHHH =MM MM 00 00 ODD DD 

MM MM TT HHHHHHHHHH =6MM MM 600 00 0D DD 

MM MM TT HH HH MM MM 00 00 OD DD 

MM MM TT HH HH MM MM 00 00 DD DD 

MM MM TT HH HH MM MM 00 00 DD DD eeee 
‘ala MM TT HH HH MM MM 600 00 DD DD eeee 
MM MM TT HH HH MM ial 000000 DDDODDDD eens 
Lala) MM TT HH HH MM MM 000000 DDDDDDDD eeee 
LL III SSSSSSSS 

LL HII! SSSSSSSS 

LL I] $$ 

LL Il SS 

LL I] $$ 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] Ss 

LLELLLLLLLL T1111 SSSSSSSS 

LLLLLLLLLL HI! SSSSSSSS 
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1ayus ba 90 FORTRAN MOD ROUTINES 
DEN 02/ ; File: MTHMOD.MAR 


RARER AAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAEAAERAAAAAARAHETAAAEETETEES 


Srthh fg! (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ply SOFTWARE IS FURNISHED UNDER ee ag AND MAY 7 USED AND gt Le 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MATH LIBRARY 


+ 

ABSTRACT: 
This module contains routines IMOD and JMOD: 
Return remainder after divisor. 


VERSION: 0 
HISTORY: 


AUTHOR: 
Jonathan M. Taylor, 11-JUL-77: Version 0 


MODIFIED BY: 


SOoOOSCOCOCOSOOOSOSSOSOSOSOSOSOSOSOSOSOSOOSOSOSOOSOSO OOOO OOOO OOOOOOOOOSoO 
SoOSOSOSOOSSSSOSOSOOSOOSOSOOSOSOSSOSSOSOSOSOSOSOSOSOSOOSOSOOOSOSOSOSOSOOOSOOOSSO 


SoOOOCOCOCSOSOSOOOSOSOSOOOSOOSOSSSSOOSOSOSOSOSOSOSOSOSOOSOSOOSOOOOOSOOOOOSoOO 


SOOCOSOSOSOSOSOSOSOSSSSOOSOOSOOCOOOOOOOoOOoOOO 


CONAUE WN @§ OODNAULE WN SO OD NAME WN 2 O OO NOA UE WN S OOONOU EU 


Sete Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se GaSe Ge 


PRE REL PUWUUWIUININIIINonononononofnononons 2 2 3 2 
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-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 0 of MTHMOD 


eit 3 = Remove MTHSFLAG_JACKET. TNH S5S-July-78 
$3 - Roget. version fumber and copyright notice. JBS 16-NOV-78 
0000 ; 1-002 = Add "'_"' to the PSECT directive. JBS 22-DEC-78 
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~SBTTL DECLARATIONS 


: INCLUDE FILES: 

Py oerr.mar 

EXTERNAL SYMBOLS: 
NONE 


+ MACROS: 
: NONE 


: PSECT DECLARATIONS: 


0000 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


; EQUATED SYMBOLS: 
NONE 


9.0909 09 09 09 09 09 09 SI NINN NINO AAA AOAAOOU 
DONAUE WN $9 OONAUES WO OONOUS WT" 00 


SSoOoOoOoOoOoOoOoOOoOoOoOoOSoOOoOSoSo 
SoOooooooooooooooooo 
COOoQoooooooooooooo 


SoOooooooooooooSo 


; OWN STORAGE: 
NONE 


THSMOD FORTRAN MOD ROUTINES 16-SEP=1 AX/ MT 
; THSMOD Beef 8 be P1iSe523 PANANES Bees et Oek:1 | Paee of, Ta 


~-SBTTL MTHSMOD 


+ 
FUNCTIONAL DESCRIPTION: 
Return remainder after division. 


CALLING SEQUENCE: 
Remainder.ww.v = MTHSIMOD (dividend.rw.r, divisor.rw.r) 


90 
i 
4; 
2 3 
38 : 
98 ; 
99 ; 
0 } ? 3 
8 1 § 3; INPUT PARAMETERS: 
bo ! : The two parameters are one-word values and are call-by-reference. 
009 105 ; 
8 1 $ 3 IMPLICIT INPUTS: 
3 1 ; NONE 
00 1 3 3 
000 109 ; OUTPUT PARAMETERS: 
000 110; NONE 
4 111; 
000 116 3; IMPLICIT OUTPUTS: 
0000 113; NONE 
44 114; 
00 115 ; COMPLETION CODES: 
000 116 ; NONE 
000 117; 
000 133 3 SIDE EFFECTS: 
4 13 3 Integer Overflow and Divide by Zero exceptions can occur. 
0000 121 ; 
000 1 § goo 
4364 1 
000 124 
00 ! 5 
4004 80 1 § ENTRY MTHSIMOD he IV> ; enable integer overflow 
50 04 eC 2 00 1 8 CVTWL 46 a4(AP), RO : div 
50 00 01 0 A 00 1 EMUL RO, #1, #0, RO ; RO/AI = "quedveré divd 
08 eC 2 00 130 CVTWL  aBCAP). : R2 = dive 
50 50 50 2 9 OF 131 EDIV - RO, RO, RO ; 4 = lon _— remainder 
50 650 a 16 ; § gy yee RO, RO ; RO = word remainder 
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* FUNCTIONAL DESCRIPTION: 
Return the remainder after division. 


CALLING SEQUENCE: 
Remainder.wl.v = MTHSJMOD (dividend.rl.r, divisor.rl.r) 


INPUT PARAMETERS: 
The two parameters are longword values and are call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


4004 ENTRY erence AM< Re. IV> ; enable integer overflow 
7A EMUL , #1, #0, RO ; RO = quadword divd 
4 AY SBtAP). RO, RO. RO; RO = longword remainder 


MEUM $C DOONAN WIN 9 ODNOAU EW O ODNOAU EW OOONOW 


SOCCOOCOCOSOCCOSOCCOCSOSOSOCOSOOOOOOOOOOOOOOOOOoOO 
DED DI at at rt kk kk kh th oh 


NNNOO & 090909096900 00 Co CD CD00: 


Oa a kd dd dd dd 
SSS DDD DD DDD DDT BBE BEE EWN 


SOOoQoooooooooooooooooooooo 


- END 
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Symbol table SEE RBS VYSEi2S HATANES Sects ieee loan:1 | Pa8e 8, 
MTHSIMOD RG oO 

ile gta Soosoess REO 


geese ereeeeeeeece } 


! Psect synopsis ! 


fom ome aoonweamaan $ 


PSECT name Allocation PSECT No. Attributes 


“wtHScoDE Soooooe? << 39.) OF ¢ 9:3 “PLE Use EON REL CEL “SW “EXE “ORD NOURT NOVEE CONG 


denn soe amet ocanmacanrenannane $ 


H Performance indicators H ‘ 

Phase Page faults CPU Time Elapsed Time 
Initialization H 8 88: 0.10 O: 0:00.59 
Command processing 133 : 48 :00:03.45 
pees} nett anni 68 0:00:00.4 3: :03.08 

0 $ H ° $ $ e 
Pass 2 43 8: : 98 0:00:01. 
Symbol table output 1 0:00:00.01 0:00:00. 
Psect synopsis output 0:00:00.0 0:00:00. 
Cross-reference output 00:00: -9 8380: :- 
Assembler run totals 28 00:00:01. 0:00:08. 


1815 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 2 non-local and 0 local symbols. 
175 source Lines were read in Pass 1, progye Ss 13 object records in Pass 2. 

mac 


0 pages of virtual memory were used to define ros. 


+ + 
! Macro Library statistics H 


tw wmamaor naw an neem anne mena 


Macro Library name Macros defined 
“S$255SDUA28:(SYSLIBJSTARLET.MLBs2 0 tts o- 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


The working set Limit was 900 pages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:MTHMOD/OBJ=OBJ$:MTHMOD MSRC$:MTHMOD/UPDATE=(ENHS :MTHMOD ) 
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